COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun lose ()
C00004 ENDMK
C⊗;
(defun lose ()
       (prog (f1 f2 f3 f4 l f5)
	     lose
	     (setq f1 (eopen '|loss.1|)) 
	     (eoffn f1 (function (lambda (x y)(close x) y)))
	     (setq f2 (eopen '|loss.1|)) 
	     (eoffn f2 (function (lambda (x y)(close x) y)))
	     (setq f3 (eopen '|loss.1|))
	     (eoffn f3 (function (lambda (x y)(close x) y)))
	     (setq f4 (eopen '|loss.1|))
	     (eoffn f4 (function (lambda (x y)(close x) y)))
	     (setq l (cons (read f1) l))
	     (setq l (cons (read f2) l))
	     (setq l (cons (read f3) l))
	     (setq l (cons (read f4) l))
	     (cond ((probef '|baz.ola|)
		    (deletef '|baz.ola|)))
	     (setq f5 (open '|baz.ola| '(out ascii)))
	     (print l f5)
	     (close f5)
	     (setq l ())
	     (close f1)(close f2)(close f3)(close f4)
	     (princ '|.|)
	     (go lose)))